SCREEN 13
x = 60: y = 60
CLS
OPEN "kangling" FOR RANDOM AS #1 LEN = 4
FOR kk = 1 TO 2
FOR kkk = 1 TO 2
  FOR i = 0 TO 16
    FOR j = 0 TO 16
     READ a
    PUT #1, , a
'    GET #1, , a
 '   IF a = 1 THEN PSET (x + j, y + i), 13
    NEXT j
  NEXT i
  x = x + 18
  NEXT kkk
  y = y - 20
  NEXT kk
CLOSE
DATA 0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0
DATA 0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,1
DATA 1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,1
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 0,0,0,0,0,0,1,1,1,1,0,0,0,0,1,0,0
DATA 0,0,0,0,0,1,1,0,0,1,0,0,0,0,1,0,0
DATA 0,0,1,1,1,0,0,1,1,1,0,0,0,1,0,0,0
DATA 0,0,0,0,0,0,1,0,1,1,0,0,1,0,0,0,0
DATA 0,0,0,0,1,1,0,1,0,1,0,1,0,0,0,0,0
DATA 0,0,0,1,0,0,1,0,0,1,0,1,0,0,0,0,0
DATA 0,0,1,0,0,1,0,0,0,1,0,0,1,0,0,0,0
DATA 0,0,0,0,1,0,0,0,0,1,0,0,0,1,0,0,0
DATA 0,0,1,1,0,0,1,1,0,1,0,0,0,0,1,0,0
DATA 1,1,0,0,0,0,0,1,1,1,0,0,0,0,0,1,1

DATA 0,0,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0
DATA 0,0,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0
DATA 0,0,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 0,0,0,0,1,1,0,0,0,1,0,0,0,1,0,0,0
DATA 0,0,0,0,1,1,0,0,0,1,0,0,0,1,0,0,0
DATA 0,0,0,0,1,1,1,0,0,1,1,1,1,1,0,0,0
DATA 0,0,0,1,0,1,1,0,0,1,0,0,0,1,0,0,0
DATA 0,0,0,1,0,1,0,1,0,1,0,0,0,1,0,0,0
DATA 0,0,0,1,0,1,0,1,0,1,0,0,0,1,0,0,0
DATA 0,0,0,1,0,1,0,1,0,1,1,1,1,1,0,0,0
DATA 0,0,1,0,0,1,0,1,0,1,0,0,0,1,0,0,0
DATA 0,0,1,0,0,1,0,0,1,1,0,0,0,1,0,0,0
DATA 0,1,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1
DATA 0,1,0,0,0,1,0,0,0,1,0,0,0,0,1,0,0
DATA 1,0,0,0,0,1,0,0,1,0,0,0,0,0,0,1,0
DATA 1,0,0,0,0,1,0,1,0,0,0,0,0,0,0,1,1

DATA 0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0
DATA 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0
DATA 0,0,1,0,1,1,1,1,1,1,1,1,1,1,1,0,0
DATA 0,0,1,0,0,0,0,0,0,1,0,0,0,0,1,0,0
DATA 0,0,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 0,0,1,0,0,0,0,0,0,1,0,0,0,1,1,0,0
DATA 0,0,1,0,1,1,1,1,1,1,1,1,1,1,1,0,0
DATA 0,1,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0
DATA 0,1,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0
DATA 0,1,0,0,0,0,1,0,0,1,0,0,1,0,0,0,0
DATA 0,1,0,0,0,0,0,1,0,1,0,1,0,0,0,0,0
DATA 0,1,0,0,0,0,1,0,0,1,0,1,0,0,0,0,0
DATA 0,1,0,0,0,1,0,0,0,1,0,0,1,0,0,0,0
DATA 1,0,0,0,1,0,0,0,0,1,0,0,0,1,0,0,0
DATA 1,0,1,1,0,0,1,1,0,1,0,0,0,0,1,0,0
DATA 1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,1,1

DATA 0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0
DATA 0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0
DATA 0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 0,0,0,0,1,1,0,0,0,0,1,1,1,0,0,0,0
DATA 0,0,0,0,1,1,0,0,0,0,1,1,1,0,0,0,0
DATA 0,0,0,0,1,1,1,0,0,1,0,1,0,1,0,0,0
DATA 0,0,0,1,0,1,1,0,0,1,0,1,0,1,0,0,0
DATA 0,0,0,1,0,1,0,1,0,1,0,1,0,1,0,0,0
DATA 0,0,0,1,0,1,0,1,0,1,0,1,0,1,0,0,0
DATA 0,0,0,1,0,1,0,1,1,0,0,1,0,0,1,0,0
DATA 0,0,1,0,0,1,0,1,1,0,0,1,0,0,1,0,0
DATA 0,0,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0
DATA 0,1,0,0,0,1,0,0,1,0,0,1,0,0,1,0,0
DATA 0,1,0,0,0,1,0,0,0,0,0,1,0,0,1,0,0
DATA 1,0,0,0,0,1,0,0,0,0,0,1,0,0,0,1,0
DATA 1,0,0,0,0,1,0,0,0,0,0,1,0,0,0,1,1

